home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / languages / cleo.lzh / Cleo / inter / source / dis.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-01-24  |  7.4 KB  |  218 lines
  1. /***************************************************************************
  2. *   Ce fichier, ainsi que tous les  modules  l'accompagnant, peut et  doit *
  3. * etre  copié GRATUITEMENT à la seule condition expresse de conserver      *
  4. * l'INTEGRALITE  du  Code Source, de  la documentation, et  des fichiers   *
  5. * annexes du package. Ce logiciel est Shareware, veuilez envoyer 100 FF à  *
  6. * l'auteur pour recevoir regulièrement les nouvelles versions.             *
  7. * Toute modification est INTERDITE sans l'autorisation écrite de l'auteur. *
  8. *            Tous droits réservés à M. DIALLO Barrou, Juillet 1992.        *
  9. ***************************************************************************/
  10.  
  11. #ifdef msdos
  12.    #include "include\\inter.h"
  13. #else
  14.    #include "include/inter.h"
  15. #endif
  16. #include <stdio.h>
  17.  
  18. extern PRG *prg;
  19. extern Entete head;
  20.  
  21. void Dis(void)
  22. {
  23.     int p=0;
  24.  
  25.           while ( /*prg[p].code != RTS && */p< head.codesize)
  26.                   {
  27.                   switch (prg[p].code)
  28.                   {
  29.         case PADR_CHR: printf("%d PADR_CHR %d\n", p, prg[p].operande);
  30.                 break;
  31.         case PADR_INT: printf("%d PADR_INT %d\n", p, prg[p].operande);
  32.                 break;
  33.         case PADR_LINT: printf("%d PADR_LINT %d\n", p, prg[p].operande);
  34.                 break;
  35.         case PADR_REAL: printf("%d PADR_REAL %d\n", p, prg[p].operande);
  36.                 break;
  37.         case PADR_LREAL: printf("%d PADR_LREAL %d\n", p, prg[p].operande);
  38.                 break;
  39.         case PADR_STR: printf("%d PADR_STR %d\n", p, prg[p].operande);
  40.                 break;
  41.         case PADR_BOOL: printf("%d PADR_BOOL %d\n", p, prg[p].operande);
  42.                 break;
  43.         case PADR_ARRAY: printf("%d PADR_ARRAY %d\n", p, prg[p].operande);
  44.                 break;
  45.         case PADR_P2D: printf("%d PADR_P2D %d\n", p, prg[p].operande);
  46.                 break;
  47.         case PADR_P3D: printf("%d PADR_P3D %d\n", p, prg[p].operande);
  48.                 break;
  49.         case PADR_RGB: printf("%d PADR_RGB %d\n", p, prg[p].operande);
  50.                 break;
  51.  
  52.         case PVAL_CHR: printf("%d PVAL_CHR %d\n", p, prg[p].operande);
  53.                 break;
  54.         case PVAL_INT: printf("%d PVAL_INT %d\n", p, prg[p].operande);
  55.                 break;
  56.         case PVAL_REAL: printf("%d PVAL_REAL %d\n", p, prg[p].operande);
  57.                 break;
  58.         case PVAL_STR: printf("%d PVAL_STR %d\n", p, prg[p].operande);
  59.                 break;
  60.  
  61.         case PMEM_CHR: printf("%d PMEM_CHR\n", p);
  62.                 break;
  63.         case PMEM_INT: printf("%d PMEM_INT\n", p);
  64.                 break;
  65.         case PMEM_LINT: printf("%d PMEM_LINT\n", p);
  66.                 break;
  67.         case PMEM_REAL: printf("%d PMEM_REAL\n", p);
  68.                 break;
  69.         case PMEM_LREAL: printf("%d PMEM_LREAL\n", p);
  70.                 break;
  71.         case PMEM_STR: printf("%d PMEM_STR\n", p);
  72.                 break;
  73.         case PMEM_BOOL: printf("%d PMEM_BOOL\n", p);
  74.                 break;
  75.         case PMEM_ARRAY: printf("%d PMEM_ARRAY\n", p);
  76.                 break;
  77.         case PMEM_P2D: printf("%d PMEM_P2D\n",p);
  78.                 break;
  79.         case PMEM_P3D: printf("%d PMEM_P3D\n",p);
  80.                 break;
  81.         case PMEM_RGB: printf("%d PMEM_RGB\n",p);
  82.                 break;
  83.  
  84.         case PMEM_P2D_ALL: printf("%d PMEM_P2D_ALL\n",p);
  85.                 break;
  86.         case PMEM_P3D_ALL: printf("%d PMEM_P3D_ALL\n",p);
  87.                 break;
  88.         case PMEM_RGB_ALL: printf("%d PMEM_RGB_ALL\n",p);
  89.                 break;
  90.  
  91.  
  92.         case STM_CHR: printf("%d STM_CHR\n", p);
  93.                 break;
  94.         case STM_INT: printf("%d STM_INT\n", p);
  95.                 break;
  96.         case STM_LINT: printf("%d STM_INT\n", p);
  97.                 break;
  98.         case STM_REAL: printf("%d STM_REAL\n", p);
  99.                 break;
  100.         case STM_LREAL: printf("%d STM_LREAL\n", p);
  101.                 break;
  102.         case STM_STR: printf("%d STM_STR\n", p);
  103.                 break;
  104.         case STM_BOOL: printf("%d STM_BOOL\n", p);
  105.                 break;
  106.         case STM_ARRAY: printf("%d STM_ARRAY\n", p);
  107.                 break;
  108.         case STM_P2D: printf("%d STM_P2D\n",p);
  109.                 break;
  110.         case STM_P3D: printf("%d STM_P3D\n",p);
  111.                 break;
  112.         case STM_RGB: printf("%d STM_RGB\n",p);
  113.                 break;
  114.  
  115.         case DIVS: printf("%d DIVS\n", p);
  116.                 break;
  117.         case MULS: printf("%d MULS\n", p);
  118.                 break;
  119.         case ADD: printf("%d ADD\n", p);
  120.                 break;
  121.         case SUB: printf("%d SUB\n", p);
  122.                 break;
  123.         case NEG: printf("%d NEG\n", p);
  124.                 break;
  125.         case EQU: printf("%d EQU\n", p);
  126.                 break;
  127.         case LT: printf("%d LT\n", p);
  128.                 break;
  129.         case GT: printf("%d GT\n", p);
  130.                 break;
  131.         case LE: printf("%d LE\n", p);
  132.                 break;
  133.         case GE: printf("%d GE\n", p);
  134.                 break;
  135.         case NE: printf("%d NE\n", p);
  136.                 break;
  137.         case AND: printf("%d AND\n", p);
  138.                 break;
  139.         case MOD: printf("%d MOD\n", p);
  140.                 break;
  141.         case OR: printf("%d OR\n", p);
  142.                 break;
  143.         case XOR: printf("%d XOR\n", p);
  144.                 break;
  145.         case NOT: printf("%d NOT\n", p);
  146.                 break;
  147.         case IN: printf("%d IN\n", p);
  148.                 break;
  149.         case EQU_STR: printf("%d EQU_STR\n", p);
  150.                 break;
  151.         case LT_STR: printf("%d LT_STR\n", p);
  152.                 break;
  153.         case GT_STR: printf("%d GT_STR\n", p);
  154.                 break;
  155.         case LE_STR: printf("%d LE_STR\n", p);
  156.                 break;
  157.         case GE_STR: printf("%d GE_STR\n", p);
  158.                 break;
  159.  
  160.         case BNE: printf("%d BNE %d\n", p, prg[p].operande);
  161.                 break;
  162.         case BRA: printf("%d BRA %d\n", p, prg[p].operande);
  163.                 break;
  164.  
  165.         case PRSTR: printf("%d PRSTR\n", p);
  166.                 break;
  167.         case PRVSTR: printf("%d PRVSTR\n",p);
  168.                 break;
  169.         case PRCHR: printf("%d PRCHR\n", p);
  170.                 break;
  171.         case PRINT: printf("%d PRINT\n", p);
  172.                 break;
  173.         case PRINTCHR: printf("%d PRINTCHR\n", p);
  174.                 break;
  175.         case CHR13: printf("%d CHR13\n", p);
  176.                 break;
  177.         case READ: printf("%d READ\n", p);
  178.                 break;
  179.  
  180.         case ABS: printf("%d ABS\n", p);
  181.                 break;
  182.         case ATAN: printf("%d ATAN\n", p);
  183.                 break;
  184.         case ACOS: printf("%d ACOS\n", p);
  185.                 break;
  186.         case ASIN: printf("%d ASIN\n", p);
  187.                 break;
  188.         case COSH: printf("%d COSH\n", p);
  189.                 break;
  190.         case SINH: printf("%d SINH\n", p);
  191.                 break;
  192.         case COS: printf("%d COS\n", p);
  193.                 break;
  194.         case SIN: printf("%d SIN\n", p);
  195.                 break;
  196.         case EXP: printf("%d EXP\n", p);
  197.                 break;
  198.         case FRAC: printf("%d FRAC\n", p);
  199.                 break;
  200.         case INT: printf("%d INT\n", p);
  201.                 break;
  202.         case LN: printf("%d LN\n", p);
  203.                 break;
  204.         case SQR: printf("%d SQR\n", p);
  205.                 break;
  206.         case SQRT: printf("%d SQRT\n", p);
  207.                 break;
  208.         case RTS: printf("%d RTS\n", p);
  209.                 break;
  210.         case PUSHVAL: printf("%d PUSHVAL %d\n", p, prg[p].operande);
  211.                 break;
  212.         case LIBRARY: printf("%d LIBRARY %d\n", p, prg[p].operande);
  213.                 break;
  214.         }
  215.         p++;
  216.         }
  217. }
  218.